home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / kind + baum (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  45 lines
  1. 100 poke53281,0:printchr$(147)
  2. 110 v=53248:pokev+21,peek(v+21)or32:pokev+23,32
  3. 120 poke2045,197
  4. 130 fors6=12608to12670:readd6:rem ein scherz!
  5. 140 pokes6,d6:next
  6. 150 pokev+44,5:pokev+10,240:pokev+11,130
  7. 160 fora=1to2
  8. 170 forc=240to100step-.4:pokev+10,c:next
  9. 180 forc=100to240step.4:pokev+10,c:next
  10. 190 nexta
  11. 200 data0,0,0,0,0,0,0,16,0,0,56,0,0,40,0,0,124,0,0,186,0,0,238,0,1,251,0
  12. 210 data1,191,0,3,239,128,3,125,128,7,187,192,6,238,192,15,255,224,14,219,96
  13. 220 data31,255,240,27,238,176,0,56,0,0,56,0,0,56,0
  14. 500 v=53248:pokev+21,peek(v+21)or128:pokev+29,128
  15. 510 poke2047,199
  16. 520 fors8=12736to12798:readd8:rem noch 'n scherz!
  17. 530 pokes8,d8:next:pokev+46,10
  18. 540 pokev+14,150:pokev+15,60
  19. 600 data0,16,0,0,56,0,0,124,0,0,214,0,0,254,0,0,198,0,0,124,0,0,56,0
  20. 610 data0,254,0,1,239,0,3,255,128,3,109,128,7,126,192,6,238,192
  21. 620 data13,255,96,13,239,96,1,255,0,1,239,0,0,108,0,0,108,0,0,108,0
  22. 800 forp=1to1000:nextp
  23. 810 forc=60to160step.1:pokev+15,c:next
  24. 820 forp=1to400:nextp:pokev+29,0
  25. 830 forp=1to400:nextp:pokev+29,128
  26. 840 v=53248:pokev+21,peek(v+21)or32:pokev+23,32
  27. 850 poke2045,197
  28. 855 restore
  29. 860 fors6=12608to12670:readd6
  30. 870 pokes6,d6:next:pokev+44,5
  31. 880 pokev+10,240:pokev+11,130
  32. 890 forp=1to700:nextp
  33. 900 forc=240to100step-.3:pokev+10,c:next
  34. 910 forc=100to170step.1:pokev+10,c:next
  35. 920 pokev+29,0
  36. 930 forp=1to400:nextp:pokev+29,128
  37. 940 forp=1to100:nextp
  38. 950 pokev+44,5
  39. 960 forp=1to200:nextp
  40. 970 forc=130to0step-.9:pokev+11,c:next
  41. 980 forp=1to400:nextp:pokev+29,0
  42. 990 forp=1to100:nextp:pokev+29,128
  43. 1000 forp=1to400:nextp:pokev+21,0
  44. 1010 end
  45.